SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / T2WIN910.ZIP / TIME2WIN.BAS < prev next >

Wrap

BASIC Source File | 1997-01-16 | 84.3 KB | 1,179 lines

Option Explicit ' definition for win.ini section Global Const GET_TIME_SEPARATOR = 1 Global Const GET_DATE_SEPARATOR = 2 Global Const GET_TIME_FORMAT = 3 Global Const GET_DATE_FORMAT = 4 Global Const GET_CURRENCY = 5 Global Const GET_LANGUAGE = 6 Global Const GET_COUNTRY = 7 Global Const GET_COUNTRY_CODE = 8 Global Const GET_LIST_SEPARATOR = 9 Global Const GET_DEFAULT_PRINTER = 10 ' definition for drive type Global Const DRIVE_UNKNOW = 0 Global Const DRIVE_REMOVABLE = 2 Global Const DRIVE_FIXED = 3 Global Const DRIVE_REMOTE = 4 Global Const DRIVE_CDROM = 20 ' definition for file attributes Global Const A_NORMAL = &H0 'Normal file - No read/write restrictions Global Const A_RDONLY = &H1 'Read only file Global Const A_HIDDEN = &H2 'Hidden file Global Const A_SYSTEM = &H4 'System file Global Const A_VOLID = &H8 'Volume ID file Global Const A_SUBDIR = &H10 'Subdirectory Global Const A_ARCH = &H20 'Archive file Global Const A_NORMAL_ARCHIVE = &HFE 'Normal, Archive Global Const A_ALL = &HFF 'Normal, Archive, Read-Only, Hidden, System ' definition for encrypt/decrypt Global Const ENCRYPT_LEVEL_0 = 0 Global Const ENCRYPT_LEVEL_1 = 1 Global Const ENCRYPT_LEVEL_2 = 2 Global Const ENCRYPT_LEVEL_3 = 3 Global Const ENCRYPT_LEVEL_4 = 4 Global Const CRYPTO_KEY_TOO_SMALL = -1 Global Const CRYPTO_CANT_INIT_KEY = -2 Global Const CRYPTO_CANT_INIT_BUFFER = -11 Global Const CRYPTO_CANT_OPEN_FILEIN = -21 Global Const CRYPTO_CANT_CREATE_FILEOUT = -22 Global Const CRYPTO_ERROR_READING_FILEIN = -31 Global Const CRYPTO_ERROR1_WRITING_FILEOUT = -41 Global Const CRYPTO_ERROR2_WRITING_FILEOUT = -42 Global Const CRYPTO_ERROR1_WRITING_LASTBYTE = -51 Global Const CRYPTO_ERROR2_WRITING_LASTBYTE = -52 Global Const CRYPTO_BAD_LASTBYTE = -61 Global Const RUBY_MODE_MINIMUM = 1 ' speed is of the essence, security secondary. Global Const RUBY_MODE_DESK_LOCK = 2 ' reasonable compromise of speed vs security. Global Const RUBY_MODE_DEAD_BOLT = 4 ' default = probably good enough for most things. Global Const RUBY_MODE_PORTABLE_SAFE = 5 ' security is more important than speed. Global Const RUBY_MODE_ANCHORED_SAFE = 8 ' speed isn't much of a concern. Global Const RUBY_MODE_BANK_VAULT = 10 ' your pentium has nothing better to do, anyway. Global Const RUBY_MODE_FORT_KNOX = 16 ' be cool. ' definition for FILECRC32 Global Const OPEN_MODE_BINARY = 0 Global Const OPEN_MODE_TEXT = 1 ' definition for FILEUUCP Global Const MODE_UUENCODE = 0 Global Const MODE_UUDECODE = 1 ' definition for ARRAYONDISK Global Const PUT_ARRAY_ON_DISK = 0 Global Const GET_ARRAY_ON_DISK = 1 ' definition for big numbers Global Const BIG_ADD = 0 Global Const BIG_SUB = 1 Global Const BIG_MUL = 2 ' definition for file version information Global Const VER_VERSION_PRODUCT = -1 Global Const VER_VERSION_FILE = 0 Global Const VER_COMPANY_NAME = 1 Global Const VER_FILE_DESCRIPTION = 2 Global Const VER_FILE_VERSION = 3 Global Const VER_INTERNAL_NAME = 4 Global Const VER_LEGAL_COPYRIGHT = 5 Global Const VER_LEGAL_TRADEMARKS = 6 Global Const VER_PRODUCT_NAME = 7 Global Const VER_PRODUCT_VERSION = 8 ' definition for language in multi-language management Global Const LNG_FRENCH = 1 Global Const LNG_DUTCH = 2 Global Const LNG_GERMAN = 3 Global Const LNG_ENGLISH = 4 Global Const LNG_ITALIAN = 5 Global Const LNG_SPANISH = 6 Global Const LNG_CATALAN = 7 Global Const LNG_POLISH = 8 Global Const LNG_NORVEGIAN = 9 ' definition for message position in multi-language message box Global Const MB_MESSAGE_LEFT = 0 Global Const MB_MESSAGE_CENTER = 8192 Global Const MB_MESSAGE_RIGHT = 16384 ' definition for timeout management in multi-language message box Global Const MB_TIMEOUT_2 = 32768 Global Const MB_TIMEOUT_4 = 2 * MB_TIMEOUT_2 Global Const MB_TIMEOUT_8 = 2 * MB_TIMEOUT_4 Global Const MB_TIMEOUT_16 = 2 * MB_TIMEOUT_8 Global Const MB_TIMEOUT_6 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Global Const MB_TIMEOUT_10 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Global Const MB_TIMEOUT_12 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Global Const MB_TIMEOUT_14 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Global Const MB_TIMEOUT_18 = MB_TIMEOUT_2 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_20 = MB_TIMEOUT_4 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_22 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_24 = MB_TIMEOUT_8 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_26 = MB_TIMEOUT_2 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_28 = MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16 Global Const MB_TIMEOUT_30 = MB_TIMEOUT_2 Or MB_TIMEOUT_4 Or MB_TIMEOUT_8 Or MB_TIMEOUT_16 Global Const MB_DISPLAY_TIMEOUT = 524288 ' definition for properties for language management Global Const RS_CAPTION = 1 Global Const RS_TEXT = 2 Global Const RS_DATAFIELD = 4 Global Const RS_DATASOURCE = 8 Global Const RS_TAG = 16 Global Const RS_MENU = 32 Global Const RS_ALL = 255 ' definition for error type for PATTERNMATCHEXT Global Const MATCH_HEXA = 17 Global Const MATCH_INTERNAL_ERROR = 16 Global Const MATCH_PATTERN = 15 Global Const MATCH_LITERAL = 14 Global Const MATCH_RANGE = 13 Global Const MATCH_ABORT = 12 Global Const MATCH_END = 11 Global Const MATCH_VALID = -1 Global Const PATTERN_VALID = 0 Global Const PATTERN_INVALID = 1 Global Const PATTERN_ESC = 2 Global Const PATTERN_RANGE = 3 Global Const PATTERN_CLOSE = 4 Global Const PATTERN_EMPTY = 5 Global Const PATTERN_INTERNAL_ERROR = 6 Global Const PATTERN_HEXA = 7 ' definition for error type for ISFILENAMEVALID Global Const IFV_ERROR = 0 Global Const IFV_NAME_TOO_LONG = 1 Global Const IFV_EXT_TOO_LONG = 2 Global Const IFV_TOO_MANY_BACKSLASH = 3 Global Const IFV_BAD_DRIVE_LETTER = 4 Global Const IFV_BAD_COLON_POS = 5 Global Const IFV_EXT_WITHOUT_NAME = 6 ' definition for variable type in DISK ARRAY Global Const DA_BYTE = 1 Global Const DA_TYPE = 0 Global Const DA_INTEGER = -2 Global Const DA_LONG = -3 Global Const DA_SINGLE = -4 Global Const DA_DOUBLE = -5 Global Const DA_CURRENCY = -6 ' definition for error type in DISK ARRAY Global Const DA_NO_ERROR = True Global Const DA_EMPTY_FILENAME = 1 Global Const DA_BAD_FILENAME = 2 Global Const DA_CAN_KILL_FILE = 3 Global Const DA_CAN_NOT_OPEN_FILE = 4 Global Const DA_FILE_NOT_FOUND = 5 Global Const DA_BAD_TYPE = 6 Global Const DA_BAD_ROWS = 7 Global Const DA_BAD_COLS = 8 Global Const DA_BAD_SHEETS = 9 Global Const DA_CAN_NOT_WRITE_HEADER = 10 Global Const DA_CAN_NOT_WRITE_PART = 11 Global Const DA_CAN_NOT_WRITE_REMAIN = 12 Global Const DA_CAN_NOT_READ_HEADER = 13 Global Const DA_HEADER_SIZE = 14 Global Const DA_BAD_SIGNATURE = 15 Global Const DA_FILE_SIZE_MISMATCH = 16 Global Const DA_CAN_NOT_SEEK = 17 Global Const DA_INVALID_HANDLE = 18 Global Const DA_CAN_NOT_READ_PART = 19 Global Const DA_CAN_NOT_READ_REMAIN = 20 ' definition for error type in HUGE MEMORY ARRAY Global Const HMA_NO_ERROR = True Global Const HMA_NO_MEMORY = 1 Global Const HMA_BAD_TYPE = 2 Global Const HMA_BAD_ROWS = 3 Global Const HMA_BAD_COLS = 4 Global Const HMA_BAD_SHEETS = 5 Global Const HMA_INVALID_HANDLE = 6 ' definition for error type in SERIAL DATA Global Const SD_SERIAL_NOT_FOUND = 1 Global Const SD_CAN_NOT_OPEN_FILE = 2 ' definition for File I/O Global Const EOFILE = -1 Global Const SEEK_CUR = 1 Global Const SEEK_END = 2 Global Const SEEK_SET = 0 ' definition for file sort Global Const SORT_ASCENDING = 1 Global Const SORT_DESCENDING = 2 Global Const SORT_CASE_SENSITIVE = 4 Global Const SORT_CASE_INSENSITIVE = 8 ' definition for compress/expand Global Const LZH_ENCODE = True Global Const LZH_DECODE = False ' definition for PROPERNAME2 Global Const PN_UPPERCASE = 1 Global Const PN_PUNCTUATION = 2 Global Const PN_KEEP_ORIGINAL = 4 Global Const PN_ONLY_LEADER_SPACE = 8 ' definition for matrix fill Global Const MATRIX_ZERO = 0 Global Const MATRIX_UNIT = 1 ' definition for FX picture Global Const FX_HORIZONTAL = 1 Global Const FX_VERTICAL = 2 Global Const FX_DIAGONAL_SQUARE = 3 Global Const FX_RECTANGLE = 4 ' definition for error type for SplitFile Global Const SPLIT_BAD_PARTSIZE = -1 Global Const SPLIT_BAD_SOURCE_FILENAME = -2 Global Const SPLIT_BAD_TARGET_FILENAME = -3 Global Const SPLIT_CANT_OPEN_SOURCE = -4 Global Const SPLIT_CANT_CREATE_TARGET = -5 ' definition for error type for CutFile Global Const CUT_BAD_POSITION = -1 Global Const CUT_BAD_SOURCE_FILENAME = -2 Global Const CUT_BAD_TARGET1_FILENAME = -3 Global Const CUT_BAD_TARGET2_FILENAME = -4 Global Const CUT_POSITION_TOO_BIG = -5 Global Const CUT_CANT_OPEN_SOURCE = -6 Global Const CUT_CANT_CREATE_TARGET1 = -7 Global Const CUT_CANT_CREATE_TARGET2 = -8 ' definition for error type for FileMergeExt Global Const FILE_MERGE_NO_ERROR = -1 Global Const FILE_MERGE_EMPTY_TARGET_FILENAME = -2 Global Const FILE_MERGE_EMPTY_BAD_TARGET_FILENAME = -3 Global Const FILE_MERGE_CANT_SET_FILE_BUFFER = -4 Global Const FILE_MERGE_CANT_CREATE_TARGET_FILE = -5 Global Const FILE_MERGE_ERROR_READING_FILE = -6 Global Const FILE_MERGE_ERROR_WRITING_FILE = -7 Global Const FILE_MERGE_ERROR_BAD_WRITE = -8 Global Const FILE_MERGE_BAD_FILE_AT_POSITION = -10 ' structure for splittin path Type tagSPLITPATH nDrive As String nDir As String nName As String nExt As String End Type ' structure for file version information Type tagFILEVERSIONINFO VersionProduct As String VersionFile As String CompanyName As String FileDescription As String FileVersion As String InternalName As String LegalCopyright As String LegalTrademarks As String Comments As String ProductName As String ProductVersion As String End Type ' structure for file attributes Type FileAttributeType ErrNo As Integer Archive As Integer Hidden As Integer Normal As Integer ReadOnly As Integer SubDir As Integer System As Integer VolId As Integer End Type ' structure for VB array Type ArrayType Bounds As Long LBound As Integer UBound As Integer ElemSize As Integer IndexCount As Integer TotalElem As Integer End Type ' structure for modules Type tagMODULEENTRY dwSize As Long szModule As String * 10 hModule As Integer wcUsage As Integer szExePath As String * 256 wNext As Integer End Type ' structure for tasks Type tagTASKENTRY dwSize As Long hTask As Integer hTaskParent As Integer hInst As Integer hModule As Integer wSS As Integer wSP As Integer wStackTop As Integer wStackMinimum As Integer wStackBottom As Integer wcEvents As Integer hQueue As Integer szModule As String * 10 wPSPOffset As Integer hNext As Integer End Type ' structure for disk array Type tagDISKARRAY daSize As Integer 'size of the type'd signature As String * 7 'signature nFilename As String * 64 'name of the file nType As Integer 'variable type nRows As Long 'number of rows nCols As Long 'number of cols nSheets As Long 'number of sheets rHandle As Integer 'returned handle for use with other functions rElementSize As Integer 'returned size of a element rFileSize As Long 'returned size of the file rParts As Long 'returned total part rRemain As Long 'returned size of the remain part rSheetSize As Long 'size of a sheet rOffset1 As Long 'returned offset 1 rOffset2 As Long 'returned offset 2 rTime As Long 'time for the last correct transaction nIsTyped As Integer 'is nType a type'd variable Dummy As String * 7 'reserved for future use End Type ' structure for multiple disk array Type tagMULTIPLEDISKARRAY daSize As Integer 'size of the structure signature As String * 7 'signature nFilename As String * 64 'name of the file nType(1 To 20) As Integer 'standard variable type (for 20 arrays) nIsTyped(1 To 20) As Integer 'is a type'd (for 20 arrays) nRows(1 To 20) As Long 'number of rows (for 20 arrays) nCols(1 To 20) As Long 'number of cols (for 20 arrays) nSheets(1 To 20) As Long 'number of sheets (for 20 arrays) rHandle As Integer 'returned handle for use with other functions rFileSize As Long 'returned size of the file rElementSz(1 To 20) As Integer 'returned size of a element (for 20 arrays) rSheetSz(1 To 20) As Long 'size of a sheet (for 20 arrays) rOffsetPos(1 To 20) As Long 'position of each array in the file (for 20 arrays) rOffset1 As Long 'returned offset 1 rOffset2 As Long 'returned offset 2 rTime As Long 'time for the last correct transaction Dummy As String * 29 'reserved for future use End Type ' structure for huge memory array Type tagHMA daSize As Integer 'size of the type'd nType As Integer 'variable type nRows As Long 'number of rows nCols As Long 'number of cols nSheets As Long 'number of sheets rHandle As Integer 'returned handle for use with other functions rElementSize As Long 'returned size of a element rMemorySize As Long 'returned size of the memory used rParts As Long 'returned total part rRemain As Long 'returned size of the remain part rSheetSize As Long 'size of a sheet rOffset As Long 'returned offset nIsTyped As Integer 'is nType a type'd variable Dummy As String * 20 'reserved for future use End Type ' structure for serialization Type tagSERIALDATA Description1 As String * 50 'serialization description 1 Description2 As String * 50 'serialization description 2 Number As Long 'serialization number Dummy As String * 50 'reserved for future use End Type ' structure for ARRAYSTRINGONDISK and FILESINDIRTOARRAY Type tagVARSTRING Contents As String End Type ' structure for 2-D geometry types Type tagVECTOR2 x As Double y As Double End Type ' structure for 3-D geometry types Type tagVECTOR3 x As Double y As Double z As Double End Type ' structure for get/set Media ID Type tagMEDIAID InfoLevel As Integer SerialNumber As Long VolLabel As String * 11 FileSysType As String * 8 End Type ' structure for Get Control Rectangle Type tagRECT Left As Integer Top As Integer Right As Integer Bottom As Integer End Type ' structure for 3D-Meter Type tag3DMeter CrtValue As Long 'current value MaxValue As Long 'maximum value BackColor As Long ForeColor As Long Polygon As Integer '0 : rectangle, 1 : triangle, 2 : trapezium, 3 : ellipse , 4 : bars BarSize As Integer 'size of a bar (polygon = 4) (in pixel : min=1,max=20,default=10) SpaceBars As Integer 'space between bars (polygon = 4) (in pixel : min=1,max=4,default=2) Direction As Integer '0 : horizontal, other : vertical ThreeD As Integer '-1 : indented, 1 : raised Thickness As Integer Percent As Integer 'internal use, do not change OldPolygon As Integer 'internal use, do not change OldDirection As Integer 'internal use, do not change OldThreeD As Integer 'internal use, do not change HatchBrush As Integer '-1 : solid brush, 0 : hor., 1 : ver., 2 : downward diag., 3 : upward diag., 4 : cross, 5 : diag.cross End Type ' structure for File Information Type tagFILEINFO fSize As Long 'size of the file fDate As Long 'date of the file (scalar date) fTime As Long 'time of the file (scalar time) fAttribute As Integer 'attribute of the file End Type Rem Don't Remove It Declare Sub c3D Lib "time2win.dll" (Ctl As Control, ByVal Method As Integer, ByVal Thickness As Integer) Declare Sub c3DMeter Lib "time2win.dll" (hCtl As Control, Meter As tag3DMeter) Declare Function cAddD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer Declare Function cAddDigit Lib "time2win.dll" (Txt As String) As Integer Declare Function cAddI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer Declare Function cAddL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer Declare Function cAddS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer Declare Function cAddTime Lib "time2win.dll" (ByVal Hr As Integer) As Integer Declare Function cAddTwoTimes Lib "time2win.dll" (ByVal Time1 As String, ByVal Time2 As String) As String Declare Function cAlign Lib "time2win.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Integer) As String Declare Function cAllSubDirectories Lib "time2win.dll" (ByVal lpBaseDirectory As String, nDir As Integer) As String Declare Function cAndToken Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String) As Integer Declare Function cAndTokenIn Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer Declare Function cArabicToRoman Lib "time2win.dll" (Var As Variant) As String Declare Sub cArrangeDesktopIcons Lib "time2win.dll" () Declare Function cArrayOnDisk Lib "time2win.dll" (ByVal FILE As String, array() As Any, ByVal GetPut As Integer) As Long Declare Function cArrayPrm Lib "time2win.dll" (array() As Any, nArray As Any) As Integer Declare Function cArrayStringOnDisk Lib "time2win.dll" (ByVal FILE As String, array() As Any, ByVal GetPut As Integer, rRecords As Long) As Long Declare Function cArrayToComboBox Lib "time2win.dll" (ByVal hWnd As Integer, array() As Any) As Integer Declare Function cArrayToListBox Lib "time2win.dll" (ByVal hWnd As Integer, array() As Any) As Integer Declare Function cB2I Lib "time2win.dll" (ByVal Txt As String) As Integer Declare Function cB2L Lib "time2win.dll" (ByVal Txt As String) As Long Declare Function cBaseConversion Lib "time2win.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String Declare Function cBetween Lib "time2win.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer Declare Function cBigAdd Lib "time2win.dll" (Num1 As String, Num2 As String) As String Declare Function cBigDiv Lib "time2win.dll" (Num1 As String, Num2 As String) As String Declare Function cBigMul Lib "time2win.dll" (Num1 As String, Num2 As String) As String Declare Function cBigNum Lib "time2win.dll" (ByVal n1 As String, ByVal op As Integer, ByVal n2 As String) As String Declare Function cBigSub Lib "time2win.dll" (Num1 As String, Num2 As String) As String Declare Function cBigFmt Lib "time2win.dll" (Num As String, ByVal Length As Integer) As String Declare Function cBlockCharFromLeft Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Function cBlockCharFromRight Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Sub cCenterWindow Lib "time2win.dll" (ByVal hWnd As Integer) Declare Sub cChangeChars Lib "time2win.dll" (Txt As String, CharSet As String, NewCharSet As String) Declare Sub cChangeCharsUntil Lib "time2win.dll" (Txt As String, CharSet As String, NewCharSet As String, nUntil As String) Declare Sub cChangeTaskName Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) Declare Function cChDir Lib "time2win.dll" (ByVal lpDir As String) As Integer Declare Function cChDrive Lib "time2win.dll" (ByVal lpDrive As String) As Integer Declare Function cCheckChars Lib "time2win.dll" (Txt As String, CharSet As String) As Integer Declare Function cCheckMinuteChange Lib "time2win.dll" () As Integer Declare Function cCheckNumericity Lib "time2win.dll" (Txt As String) As Integer Declare Function cCheckSecondChange Lib "time2win.dll" () As Integer Declare Function cCheckStatus Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cCheckTime Lib "time2win.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer Declare Function cCheckWait Lib "time2win.dll" (ByVal nTimer As Integer) As Integer Declare Function cCloseAllEditForm Lib "time2win.dll" () As Integer Declare Function cHashMD5 Lib "time2win.dll" (Text As String) As String Declare Function cCmpFileAttribute Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Integer Declare Function cCmpFileContents Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, ByVal Sensitivity As Integer) As Integer Declare Function cCmpFileSize Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Integer Declare Function cCmpFileTime Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Integer Declare Sub cCnvASCIItoEBCDIC Lib "time2win.dll" (Txt As String) Declare Sub cCnvEBCDICtoASCII Lib "time2win.dll" (Txt As String) Declare Function cCombination Lib "time2win.dll" (ByVal nItems As Integer, ByVal mTimes As Integer) As Double Declare Function cCompact Lib "time2win.dll" (Txt As String) As String Declare Function cCompareTypeString Lib "time2win.dll" Alias "cTypesCompare" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) As Integer Declare Function cCompareStringType Lib "time2win.dll" Alias "cTypesCompare" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) As Integer Declare Function cCompress Lib "time2win.dll" (Txt As String) As String Declare Function cCompressTab Lib "time2win.dll" (Txt As String, ByVal nTab As Integer) As String Declare Sub cCtl3D Lib "time2win.dll" (Ctl As Control, ByVal LeftTopColor As Long, ByVal RightBottomColor As Long, ByVal Thickness As Integer) Declare Function cConvert Lib "time2win.dll" (Value As String, ByVal MaskFrom As String, ByVal MaskTo As String, ByVal Size As Integer) As String Declare Function cCount Lib "time2win.dll" (Txt As String, Separator As String) As Integer Declare Function cCountDirectories Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cCountFiles Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cCountI Lib "time2win.dll" (array() As Integer, ByVal Value As Integer) As Long Declare Function cCountL Lib "time2win.dll" (array() As Long, ByVal Value As Long) As Long Declare Function cCountS Lib "time2win.dll" (array() As Single, ByVal Value As Single) As Long Declare Function cCountD Lib "time2win.dll" (array() As Double, ByVal Value As Double) As Long Declare Function cCplAlpha Lib "time2win.dll" (Txt As String) As String Declare Function cCplDigit Lib "time2win.dll" (Txt As String) As String Declare Function cCreateAndFill Lib "time2win.dll" (ByVal Length As Integer, Txt As String) As String Declare Function cCreateBits Lib "time2win.dll" (ByVal nBits As Integer) As String Declare Function cCurrentTime Lib "time2win.dll" () As Integer Declare Function cCutFile Lib "time2win.dll" (ByVal SourceFile As String, ByVal TargetFile1 As String, ByVal TargetFile2 As String, ByVal CutPosition As Long) As Long Declare Function cCVB Lib "time2win.dll" (Value As String) As Integer Declare Function cCVC Lib "time2win.dll" (Value As String) As Currency Declare Function cCVD Lib "time2win.dll" (Value As String) As Double Declare Function cCVI Lib "time2win.dll" (Value As String) As Integer Declare Function cCVL Lib "time2win.dll" (Value As String) As Long Declare Function cCVS Lib "time2win.dll" (Value As String) As Single Declare Function cDAClear Lib "time2win.dll" (DISKARRAY As tagDISKARRAY) As Integer Declare Function cDAClearCol Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer Declare Function cDAClearRow Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer Declare Function cDAClearSheet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal sheet As Long) As Integer Declare Sub cDAClose Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal DeleteFile As Integer) Declare Function cDACreate Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal CreateOrUse As Integer) As Integer Declare Function cDAGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant Declare Sub cDAGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cDAPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant) Declare Sub cDAPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cDArGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant) Declare Sub cDArGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any) Declare Sub cDArPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, Var As Variant) Declare Sub cDArPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long, nType As Any) Declare Function cDAsClearCol Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Col As Long) As Integer Declare Function cDAsClearRow Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long) As Integer Declare Sub cDAsGet Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cDAsGetType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Sub cDAsPut Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cDAsPutType Lib "time2win.dll" (DISKARRAY As tagDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Function cDateToScalar Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long Declare Function cDayOfWeek Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer Declare Function cDayOfYear Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer Declare Function cDaysInMonth Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer Declare Sub cDecrI Lib "time2win.dll" (Value As Integer) Declare Sub cDecrL Lib "time2win.dll" (Value As Long) Declare Function cDecrypt Lib "time2win.dll" (Txt As String, Password As String, ByVal level As Integer) As String Declare Function cDeviationD Lib "time2win.dll" (array() As Double) As Double Declare Function cDeviationI Lib "time2win.dll" (array() As Integer) As Double Declare Function cDeviationL Lib "time2win.dll" (array() As Long) As Double Declare Function cDeviationS Lib "time2win.dll" (array() As Single) As Double Declare Sub cDisableCtlRedraw Lib "time2win.dll" (Ctl As Control) Declare Sub cDisableFI Lib "time2win.dll" (Ctl As Control) Declare Sub cDisableForm Lib "time2win.dll" (ByVal hWnd As Integer) Declare Sub cDisableRedraw Lib "time2win.dll" (ByVal hWnd As Integer) Declare Function cDOSGetMediaID Lib "time2win.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer Declare Function cDOSGetVolumeLabel Lib "time2win.dll" (ByVal nDrive As String) As String Declare Function cDOSSetMediaID Lib "time2win.dll" (ByVal nDrive As String, MEDIAID As tagMEDIAID) As Integer Declare Function cDOSSetVolumeLabel Lib "time2win.dll" (ByVal nDrive As String, ByVal nVolumeLabel As String) As Integer Declare Sub cEnableCtlRedraw Lib "time2win.dll" (Ctl As Control) Declare Sub cEnableFI Lib "time2win.dll" (Ctl As Control) Declare Sub cEnableForm Lib "time2win.dll" (ByVal hWnd As Integer) Declare Sub cEnableRedraw Lib "time2win.dll" (ByVal hWnd As Integer) Declare Function cEncrypt Lib "time2win.dll" (Txt As String, Password As String, ByVal level As Integer) As String Declare Function cEXEnameActiveWindow Lib "time2win.dll" () As String Declare Function cEXEnameWindow Lib "time2win.dll" (ByVal hModule As Integer) As String Declare Function cEXEnameTask Lib "time2win.dll" (ByVal nFilename As String) As String Declare Function cExitWindowsAndExecute Lib "time2win.dll" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer Declare Function cExpandTab Lib "time2win.dll" (Txt As String, ByVal nTab As Integer) As String Declare Function cFileChangeChars Lib "time2win.dll" (ByVal nFilename As String, CharSet As String, NewCharSet As String, ByVal nFileTemp As String) As Long Declare Function cFileCompress Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cFileCompressTab Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Integer) As Long Declare Function cFileCopy Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cFileCRC32 Lib "time2win.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long Declare Function cFileDateCreated Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileDecrypt Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long Declare Function cFileDrive Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileEncrypt Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, Password As String, ByVal level As Integer) As Long Declare Function cFileExpand Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cFileExpandTab Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, ByVal nTab As Integer) As Long Declare Function cFileFilter Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long Declare Function cFileFilterNot Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, Filter As String) As Long Declare Function cFileGetAttrib Lib "time2win.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer Declare Function cFileLastDateAccess Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileLastDateModified Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileLastTimeAccess Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileLastTimeModified Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileLineCount Lib "time2win.dll" (ByVal lpFilename As String) As Long Declare Function cFileMerge Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String, ByVal fileTo As String) As Long Declare Function cFileMergeExt Lib "time2win.dll" (array() As Any, ByVal TargetFile As String) As Long Declare Function cFilePathExists Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cFileResetAllAttrib Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileResetArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileResetFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer Declare Function cFileResetHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileResetReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileResetSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileSearch Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long Declare Function cFileSearchAndReplace Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Replace As String, ByVal nFileTemp As String, ByVal Sensitivity As Integer) As Long Declare Function cFileSearchCount Lib "time2win.dll" (ByVal nFilename As String, ByVal Search As String, ByVal Sensitivity As Integer) As Long Declare Function cFileSetAllAttrib Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileSetArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileSetAttrib Lib "time2win.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer Declare Function cFileSetFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer Declare Function cFileSetHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileSetReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFileSetSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cFilesInDirectory Lib "time2win.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String Declare Function cFilesInDirOnDisk Lib "time2win.dll" (ByVal nFile As String, ByVal nFilename As String, ByVal nAttribute As Integer) As Integer Declare Function cFilesInDirToArray Lib "time2win.dll" (ByVal nFilename As String, ByVal nAttribute As Integer, array() As Any) As Integer Declare Function cFilesInfoInDir Lib "time2win.dll" (ByVal nFilename As String, FILEINFO As tagFILEINFO, ByVal FirstNext As Integer) As String Declare Function cFileSize Lib "time2win.dll" (ByVal lpFilename As String) As Long Declare Function cFileSort Lib "time2win.dll" (ByVal FileIn As String, ByVal FileOut As String, ByVal SortMethod As Integer, ByVal RecordLength As Long, ByVal KeyOffset As Long, ByVal KeyLength As Long, rRecords As Integer) As Long Declare Function cFilesSize Lib "time2win.dll" (ByVal nFilename As String) As Double Declare Function cFilesSizeOnDisk Lib "time2win.dll" (ByVal nFilename As String) As Double Declare Function cFilesSlack Lib "time2win.dll" (ByVal nFilename As String, Size1 As Double, Size2 As Double) As Integer Declare Function cFileStatistics Lib "time2win.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long Declare Function cFileTimeCreated Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cFileToComboBox Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer Declare Function cFileToListBox Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer Declare Function cFileToUpper Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cFileToLower Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cFileUUCP Lib "time2win.dll" (ByVal FileNameIn As String, ByVal FileNameOut As String, ByVal Mode As Integer) As Long Declare Sub cFill Lib "time2win.dll" (Txt As String, Fill As String) Declare Function cFillD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer Declare Function cFillI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer Declare Function cFillL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer Declare Function cFillS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer Declare Function cFillIncrD Lib "time2win.dll" (array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer Declare Function cFillIncrI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer Declare Function cFillIncrL Lib "time2win.dll" (array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer Declare Function cFillIncrS Lib "time2win.dll" (array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer Declare Function cFilterBlocks Lib "time2win.dll" (Txt As String, Delimitor As String) As String Declare Function cFilterChars Lib "time2win.dll" (Txt As String, CharSet As String) As String Declare Function cFilterFirstChars Lib "time2win.dll" (Txt As String, CharSet As String) As String Declare Function cFilterNotChars Lib "time2win.dll" (Txt As String, CharSet As String) As String Declare Function cFindBitReset Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer Declare Function cFindBitSet Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer Declare Function cFindFileInEnv Lib "time2win.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer Declare Function cFindFileInPath Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cFloppyInfo Lib "time2win.dll" (ByVal nDrive As String, nHeads As Integer, nCylinders As Integer, nSectors As Integer) As Integer Declare Function cFraction Lib "time2win.dll" (ByVal nValue As Double, nNumerator As Double, nDenominator As Double) As Double Declare Function cFromBinary Lib "time2win.dll" (Text As String) As String Declare Function cFromBinary2 Lib "time2win.dll" (Text As String, Bin As String) As String Declare Function cFromHexa Lib "time2win.dll" (Text As String) As String Declare Function cFromHexa Lib "time2win.dll" (Text As String) As String Declare Function cFromZ9 Lib "time2win.dll" (Text As String) As String Declare Function cFullPath Lib "time2win.dll" (ByVal nFilename As String) As String Declare Function cFXpicture Lib "time2win.dll" (ByVal Method As Integer, ByVal hdc1 As Integer, ByVal hbitmap As Integer, ByVal parameter As Integer, ByVal delay As Integer) As Integer Declare Function cGet Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Function cGetAscTime Lib "time2win.dll" (ByVal nLanguage As Integer) As String Declare Function cGetBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As Integer Declare Function cGetBitD Lib "time2win.dll" (ByVal Value As Double, ByVal Position As Integer) As Integer Declare Function cGetBitI Lib "time2win.dll" (ByVal Value As Integer, ByVal Position As Integer) As Integer Declare Function cGetBitL Lib "time2win.dll" (ByVal Value As Long, ByVal Position As Integer) As Integer Declare Function cGetBitS Lib "time2win.dll" (ByVal Value As Single, ByVal Position As Integer) As Integer Declare Function cGetBlock Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String Declare Function cGetCaption Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetChangeTaskName Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) As String Declare Function cGetClass Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetClassName Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetContainer Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetCountry Lib "time2win.dll" () As String Declare Function cGetCountryCode Lib "time2win.dll" () As String Declare Function cGetCtlCaption Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlClass Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlContainer Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlDataField Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlForm Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlIndex Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cGetCtlName Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlNameIndex Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlPropCaption Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cGetCtlPropDataField Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cGetCtlPropText Lib "time2win.dll" (Ctl As Control) As Integer Declare Sub cGetCtlRect Lib "time2win.dll" (Ctl As Control, RECT As Any) Declare Sub cGetCtlRectTwips Lib "time2win.dll" (Ctl As Control, RECT As Any) Declare Function cGetCtlTag Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlTagSized Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCtlText Lib "time2win.dll" (Ctl As Control) As String Declare Function cGetCurrency Lib "time2win.dll" () As String Declare Function cGetCurrentDrive Lib "time2win.dll" () As String Declare Function cGetDataField Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetDateFormat Lib "time2win.dll" () As String Declare Function cGetDateSeparator Lib "time2win.dll" () As String Declare Function cGetDefaultCurrentDir Lib "time2win.dll" () As String Declare Function cGetDefaultPrinter Lib "time2win.dll" () As String Declare Function cGetDevices Lib "time2win.dll" () As String Declare Function cGetDiskClusterSize Lib "time2win.dll" (ByVal lpDrive As String) As Double Declare Function cGetDiskFree Lib "time2win.dll" (ByVal lpDrive As String) As Double Declare Function cGetDiskSpace Lib "time2win.dll" (ByVal lpDrive As String) As Double Declare Function cGetDiskUsed Lib "time2win.dll" (ByVal lpDrive As String) As Double Declare Function cGetDriveCurrentDir Lib "time2win.dll" (ByVal lpDrive As String) As String Declare Function cGetDriveType Lib "time2win.dll" (ByVal lpDrive As String) As Integer Declare Function cGetFileVersion Lib "time2win.dll" (ByVal FileName As String, ByVal nFonction As Integer) As String Declare Function cGetFileVersionInfo Lib "time2win.dll" (ByVal FileName As String, FILEVERSIONINFO As Any) As Integer Declare Function cGetForm Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetFullNameInEnv Lib "time2win.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String Declare Function cGetFullNameInPath Lib "time2win.dll" (ByVal lpFilename As String) As String Declare Function cGetHourFormat Lib "time2win.dll" () As String Declare Function cGetHwnd Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cGetIn Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String Declare Function cGetIndex Lib "time2win.dll" (ByVal hWnd As Integer) As Integer Declare Function cGetIni Lib "time2win.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String Declare Function cGetInPart Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String Declare Function cGetInPartR Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String Declare Function cGetInR Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String Declare Function cGetLanguage Lib "time2win.dll" () As String Declare Function cGetListSeparator Lib "time2win.dll" () As String Declare Function cGetLongDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String Declare Function cGetLongMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String Declare Function cGetName Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetNameIndex Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetNetConnection Lib "time2win.dll" (ByVal lpDrive As String, ErrCode As Integer) As String Declare Function cGetPid Lib "time2win.dll" () As Integer Declare Function cGetPrinterPorts Lib "time2win.dll" () As String Declare Function cGetSectionItems Lib "time2win.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String Declare Function cGetShortDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String Declare Function cGetShortMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String Declare Function cGetSmallDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String Declare Function cGetSystemDirectory Lib "time2win.dll" () As String Declare Function cGetTag Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetTagSized Lib "time2win.dll" (ByVal hWnd As Integer, ByVal nSize As Integer) As String Declare Function cGetTaskName Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetText Lib "time2win.dll" (ByVal hWnd As Integer) As String Declare Function cGetTimeSeparator Lib "time2win.dll" () As String Declare Function cGetTinyDay Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nDay As Integer) As String Declare Function cGetTinyMonth Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal nMonth As Integer) As String Declare Function cGetVersion Lib "time2win.dll" () As Single Declare Function cGetWindowsDirectory Lib "time2win.dll" () As String Declare Function cGetWinINI Lib "time2win.dll" (ByVal Info As Integer) As String Declare Function cGetWinSection Lib "time2win.dll" (ByVal Section As String) As String Declare Function cGiveBitPalindrome Lib "time2win.dll" () As String Declare Function cGZIPFileCompress Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cGZIPFileExpand Lib "time2win.dll" (ByVal File1 As String, ByVal File2 As String) As Long Declare Function cGZIPStringCompress Lib "time2win.dll" (Txt As String) As String Declare Function cGZIPStringExpand Lib "time2win.dll" (Txt As String) As String Declare Function cHideAllEditForm Lib "time2win.dll" () As Integer Declare Function cHideDebugForm Lib "time2win.dll" () As Integer Declare Function cHourTo Lib "time2win.dll" (Txt As String) As Variant Declare Function cI2B Lib "time2win.dll" (ByVal Value As Integer) As String Declare Function cIfInStr Lib "time2win.dll" (Txt As String, Operator As String) As String Declare Sub cIncrI Lib "time2win.dll" (Value As Integer) Declare Sub cIncrL Lib "time2win.dll" (Value As Long) Declare Function cInsertBlocks Lib "time2win.dll" (Txt As String, Insert As String) As String Declare Function cInsertBlocksBy Lib "time2win.dll" (Txt As String, Insert As String, Delimitor As String) As String Declare Function cInsertByMask Lib "time2win.dll" (Txt As String, Mask As String, Insert As String) As String Declare Function cInsertChars Lib "time2win.dll" (Txt As String, ByVal Position As Integer, Insert As String) As String Declare Function cIntoBalance Lib "time2win.dll" (Var As Variant) As String Declare Function cIntoBalanceFill Lib "time2win.dll" (Var As Variant) As String Declare Function cIntoDate Lib "time2win.dll" (ByVal nDate As Long) As String Declare Function cIntoDateFill Lib "time2win.dll" (ByVal nDate As Long) As String Declare Function cIntoDateNull Lib "time2win.dll" (ByVal nDate As Long) As String Declare Function cIntoFixHour Lib "time2win.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String Declare Function cIntoHour Lib "time2win.dll" (Var As Variant) As String Declare Function cIntoVarHour Lib "time2win.dll" (Var As Variant) As String Declare Function cIsAlnum Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsAlpha Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsAscii Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsBalance Lib "time2win.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer Declare Function cIsBitPalindrome Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsCsym Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsCsymf Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsDate Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer Declare Function cIsDigit Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsFileArchive Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileEmpty Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileFlag Lib "time2win.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer Declare Function cIsFileHidden Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileNormal Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFilenameValid Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileReadOnly Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileSubDir Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileSystem Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFileVolId Lib "time2win.dll" (ByVal nFilename As String) As Integer Declare Function cIsFormEnabled Lib "time2win.dll" (ByVal hWnd As Integer) As Integer Declare Function cIsHour Lib "time2win.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer Declare Function cIsISBN Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsLeapYear Lib "time2win.dll" (ByVal nYear As Integer) As Integer Declare Function cIsLower Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsPalindrome Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsPunct Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsSerial Lib "time2win.dll" (ByVal File1 As String) As Integer Declare Function cIsSpace Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsUpper Lib "time2win.dll" (Txt As String) As Integer Declare Function cIsXdigit Lib "time2win.dll" (Txt As String) As Integer Declare Function cKillDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cKillDirFilesAll Lib "time2win.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer Declare Function cKillDirs Lib "time2win.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer Declare Function cKillFile Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cKillFileAll Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cKillFiles Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cKillFilesAll Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Sub cKillFocus Lib "time2win.dll" (ByVal hWnd As Integer) Declare Function cL2B Lib "time2win.dll" (ByVal Value As Long) As String Declare Function cLngMsgBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) As Integer Declare Sub cLngBoxMsg Lib "time2win.dll" Alias "cLngMsgBox" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Button As Long, ByVal Title As String) Declare Function cLngInpBox Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal Message As String, ByVal Title As String, ByVal Default As String) As String Declare Sub cLngSysMenu Lib "time2win.dll" (ByVal nLanguage As Integer, ByVal hWnd As Integer) Declare Function cLockEventI Lib "time2win.dll" (Ctl As Control) As Integer Declare Function cLrc Lib "time2win.dll" (Txt As String) As String Declare Function cMakeDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cMakeMultipleDir Lib "time2win.dll" (ByVal lpFilename As String) As Integer Declare Function cMakePath Lib "time2win.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String Declare Sub cMatrixAdd Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double) Declare Function cMatrixCoFactor Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double Declare Function cMatrixCompare Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer Declare Sub cMatrixCopy Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) Declare Function cMatrixDet Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double) As Double Declare Function cMatrixFill Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal nInit As Integer) As Integer Declare Function cMatrixInv Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer Declare Function cMatrixMinor Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ByVal Row As Integer, ByVal Col As Integer) As Double Declare Sub cMatrixMul Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double) Declare Sub cMatrixSub Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayB() As Double, ArrayC() As Double) Declare Function cMatrixSymToeplitz Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) As Integer Declare Sub cMatrixTranspose Lib "time2win.dll" (ByVal Size As Integer, ArrayA() As Double, ArrayC() As Double) Declare Function cMax Lib "time2win.dll" (Var1 As Variant, Var2 As Variant) As Variant Declare Function cMaxD Lib "time2win.dll" (array() As Double) As Double Declare Function cMaxI Lib "time2win.dll" (array() As Integer) As Integer Declare Function cMaxL Lib "time2win.dll" (array() As Long) As Long Declare Function cMaxS Lib "time2win.dll" (array() As Single) As Single Declare Function cMaxNotXD Lib "time2win.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double Declare Function cMaxNotXI Lib "time2win.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer Declare Function cMaxNotXL Lib "time2win.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long Declare Function cMaxNotXS Lib "time2win.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single Declare Function cMDAClear Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY) As Integer Declare Function cMDAClearCol Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, ByVal sheet As Long) As Integer Declare Function cMDAClearRow Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal sheet As Long) As Integer Declare Function cMDAClearSheet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal sheet As Long) As Integer Declare Sub cMDAClose Lib "time2win.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal DeleteFile As Integer) Declare Function cMDACreate Lib "time2win.dll" (MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal CreateOrUse As Integer) As Integer Declare Function cMDAGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant Declare Sub cMDAGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cMDAPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant) Declare Sub cMDAPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cMDArGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant) Declare Sub cMDArGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any) Declare Sub cMDArPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, Var As Variant) Declare Sub cMDArPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long, nType As Any) Declare Function cMDAsClearCol Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Col As Long) As Integer Declare Function cMDAsClearRow Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long) As Integer Declare Sub cMDAsGet Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cMDAsGetType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Sub cMDAsPut Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cMDAsPutType Lib "time2win.dll" (ByVal array As Integer, MULTIPLEDISKARRAY As tagMULTIPLEDISKARRAY, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Function cMeanD Lib "time2win.dll" (array() As Double) As Double Declare Function cMeanI Lib "time2win.dll" (array() As Integer) As Double Declare Function cMeanL Lib "time2win.dll" (array() As Long) As Double Declare Function cMeanS Lib "time2win.dll" (array() As Single) As Double Declare Function cMin Lib "time2win.dll" (Var1 As Variant, Var2 As Variant) As Variant Declare Function cMinD Lib "time2win.dll" (array() As Double) As Double Declare Function cMinI Lib "time2win.dll" (array() As Integer) As Integer Declare Function cMinL Lib "time2win.dll" (array() As Long) As Long Declare Function cMinS Lib "time2win.dll" (array() As Single) As Single Declare Function cMinNotXD Lib "time2win.dll" (array() As Double, ByVal ValueNotToReturn As Double) As Double Declare Function cMinNotXI Lib "time2win.dll" (array() As Integer, ByVal ValueNotToReturn As Integer) As Integer Declare Function cMinNotXL Lib "time2win.dll" (array() As Long, ByVal ValueNotToReturn As Long) As Long Declare Function cMinNotXS Lib "time2win.dll" (array() As Single, ByVal ValueNotToReturn As Single) As Single Declare Function cMixChars Lib "time2win.dll" (Txt As String) As String Declare Function cMKB Lib "time2win.dll" (ByVal Value As Integer) As String Declare Function cMKC Lib "time2win.dll" (ByVal Value As Currency) As String Declare Function cMKD Lib "time2win.dll" (ByVal Value As Double) As String Declare Function cMKI Lib "time2win.dll" (ByVal Value As Integer) As String Declare Function cMKL Lib "time2win.dll" (ByVal Value As Long) As String Declare Function cMKN Lib "time2win.dll" (ByVal Value As String) As String Declare Function cMKS Lib "time2win.dll" (ByVal Value As Single) As String Declare Function cMod10 Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cMod10R Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cMod11 Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cMod11R Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cMod137 Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cMod137R Lib "time2win.dll" (ByVal Text As String) As Integer Declare Function cModuleFind Lib "time2win.dll" (MODULEENTRY As Any, ByVal ModuleName As String) As Integer Declare Function cModules Lib "time2win.dll" (MODULEENTRY As Any, ByVal FirstNext As Integer) As Integer Declare Function cMorse Lib "time2win.dll" (ByVal morse As String) As String Declare Function cNexthWnd Lib "time2win.dll" (ByVal hWnd As Integer) As Integer Declare Function cNumDigit Lib "time2win.dll" (Txt As String) As Integer Declare Function cOneCharFromLeft Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Function cOneCharFromRight Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Function cOrToken Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String) As Integer Declare Function cOrTokenIn Lib "time2win.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer Declare Function cPatternMatch Lib "time2win.dll" (ByVal Txt As String, ByVal pattern As String) As Integer Declare Function cPatternExtMatch Lib "time2win.dll" (ByVal Txt As String, ByVal pattern As String) As Integer Declare Function cProperName Lib "time2win.dll" (Txt As String) As String Declare Function cProperName2 Lib "time2win.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String Declare Sub cPutIni Lib "time2win.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) Declare Function cRcsCountFileDir Lib "time2win.dll" (ByVal FileOrDir As Integer, ByVal FirstFileOrDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Integer Declare Function cRcsFilesSize Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double Declare Function cRcsFilesSizeOnDisk Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer) As Double Declare Function cRcsFilesSlack Lib "time2win.dll" (ByVal FirstDir As String, ByVal MaskDir As String, ByVal Recurse As Integer, Size1 As Double, Size2 As Double) As Integer Declare Function cReadBasisTimer Lib "time2win.dll" () As Long Declare Function cReadCtlLanguage Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer Declare Function cReadCtlLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer Declare Function cReadMnuLanguage Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer Declare Function cReadMnuLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer Declare Function cReadTimer Lib "time2win.dll" (ByVal nTimer As Integer) As Long Declare Function cRebootSystem Lib "time2win.dll" () As Integer Declare Function cRegistrationKey Lib "time2win.dll" (ByVal RegString As String, ByVal RegCode As Long) As Long Declare Function cRemoveBlockChar Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String Declare Function cRemoveOneChar Lib "time2win.dll" (Txt As String, ByVal Position As Integer) As String Declare Function cRenameFile Lib "time2win.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer Declare Sub cResetCapture Lib "time2win.dll" () Declare Sub cResetFocus Lib "time2win.dll" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer) Declare Function cResizeString Lib "time2win.dll" (Txt As String, ByVal NewLength As Integer) As String Declare Function cResizeStringAndFill Lib "time2win.dll" (Txt As String, ByVal NewLength As Integer, Fill As String) As String Declare Function cRestartWindows Lib "time2win.dll" () As Integer Declare Function cReverse Lib "time2win.dll" (Txt As String) As String Declare Sub cReverseAllBits Lib "time2win.dll" (Txt As String) Declare Sub cReverseAllBitsByChar Lib "time2win.dll" (Txt As String) Declare Function cReverseSortD Lib "time2win.dll" (array() As Double) As Integer Declare Function cReverseSortI Lib "time2win.dll" (array() As Integer) As Integer Declare Function cReverseSortL Lib "time2win.dll" (array() As Long) As Integer Declare Function cReverseSortS Lib "time2win.dll" (array() As Single) As Integer Declare Function cReverseSortStr Lib "time2win.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer Declare Sub cRndInit Lib "time2win.dll" (ByVal nRnd As Long) Declare Function cRnd Lib "time2win.dll" () As Double Declare Function cRndD Lib "time2win.dll" () As Double Declare Function cRndI Lib "time2win.dll" () As Integer Declare Function cRndL Lib "time2win.dll" () As Long Declare Function cRndS Lib "time2win.dll" () As Single Declare Function cRomanToArabic Lib "time2win.dll" (Txt As String) As Variant Declare Function cRUBYdecrypt Lib "time2win.dll" (Text As String, Key As String, ByVal Mode As Integer) As String Declare Function cRUBYencrypt Lib "time2win.dll" (Text As String, Key As String, ByVal Mode As Integer) As String Declare Function cRUBYdecryptFile Lib "time2win.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long Declare Function cRUBYencryptFile Lib "time2win.dll" (ByVal FileIn As String, ByVal FileOut As String, Key As String, ByVal Mode As Integer) As Long Declare Function cSaveCtlLanguage Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer Declare Function cSaveCtlLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal Property As Integer, ByVal FileLanguage As String) As Integer Declare Function cSaveMnuLanguage Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer Declare Function cSaveMnuLanguageExt Lib "time2win.dll" (Ctl As Control, ByVal FileLanguage As String) As Integer Declare Sub cScalarToDate Lib "time2win.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer) Declare Sub cScalarToTime Lib "time2win.dll" (ByVal Scalar As Long, nHour As Integer, nMin As Integer, nSec As Integer) Declare Function cScrollL Lib "time2win.dll" (Txt As String) As String Declare Function cScrollR Lib "time2win.dll" (Txt As String) As String Declare Function cSearchI Lib "time2win.dll" (array() As Integer, ByVal Value As Integer) As Long Declare Function cSearchL Lib "time2win.dll" (array() As Long, ByVal Value As Long) As Long Declare Function cSearchS Lib "time2win.dll" (array() As Single, ByVal Value As Single) As Long Declare Function cSearchD Lib "time2win.dll" (array() As Double, ByVal Value As Double) As Long Declare Sub cSetAllBits Lib "time2win.dll" (Txt As String, ByVal Value As Integer) Declare Sub cSetBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer, ByVal Value As Integer) Declare Sub cSetBitToFalse Lib "time2win.dll" (Txt As String, ByVal Position As Integer) Declare Sub cSetBitToTrue Lib "time2win.dll" (Txt As String, ByVal Position As Integer) Declare Sub cSetBitD Lib "time2win.dll" (Value As Double, ByVal Position As Integer, ByVal BitValue As Integer) Declare Sub cSetBitI Lib "time2win.dll" (Value As Integer, ByVal Position As Integer, ByVal BitValue As Integer) Declare Sub cSetBitL Lib "time2win.dll" (Value As Long, ByVal Position As Integer, ByVal BitValue As Integer) Declare Sub cSetBitS Lib "time2win.dll" (Value As Single, ByVal Position As Integer, ByVal BitValue As Integer) Declare Sub cSetCaption Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) Declare Sub cSetCapture Lib "time2win.dll" (ByVal hWnd As Integer) Declare Sub cSetCtlCaption Lib "time2win.dll" (Ctl As Control, ByVal Text As String) Declare Sub cSetCtlDataField Lib "time2win.dll" (Ctl As Control, ByVal Text As String) Declare Sub cSetCtlFocus Lib "time2win.dll" (Ctl As Control) Declare Sub cSetCtlPropString Lib "time2win.dll" (Ctl As Control, ByVal PropIndex As Integer, ByVal Text As String) Declare Sub cSetCtlTag Lib "time2win.dll" (Ctl As Control, ByVal Text As String) Declare Sub cSetCtlText Lib "time2win.dll" (Ctl As Control, ByVal Text As String) Declare Function cSetD Lib "time2win.dll" (array() As Double, ByVal nValue As Double) As Integer Declare Sub cSetDataField Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) Declare Sub cSetDefaultSeparator Lib "time2win.dll" (Separator As String) Declare Sub cSetFocus Lib "time2win.dll" (ByVal hWnd As Integer) Declare Function cSetHandleCount Lib "time2win.dll" (ByVal nHandle As Integer) As Integer Declare Function cSetI Lib "time2win.dll" (array() As Integer, ByVal nValue As Integer) As Integer Declare Function cSetL Lib "time2win.dll" (array() As Long, ByVal nValue As Long) As Integer Declare Function cSerialGet Lib "time2win.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer Declare Function cSerialInc Lib "time2win.dll" (ByVal FILE As String, ByVal Increment As Long) As Integer Declare Function cSerialPut Lib "time2win.dll" (ByVal FILE As String, SERIALDATA As tagSERIALDATA) As Integer Declare Function cSerialRmv Lib "time2win.dll" (ByVal FILE As String) As Integer Declare Function cSetS Lib "time2win.dll" (array() As Single, ByVal nValue As Single) As Integer Declare Sub cSetTag Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) Declare Sub cSetText Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Text As String) Declare Sub cSetWait Lib "time2win.dll" (ByVal nTimer As Integer, ByVal nValue As Long) Declare Function cSgn Lib "time2win.dll" (ByVal Value As Integer) As Integer Declare Sub cShowWindow Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Method As Integer, ByVal interval As Integer) Declare Function cSleep Lib "time2win.dll" (ByVal delay As Long) As Integer Declare Function cSortD Lib "time2win.dll" (array() As Double) As Integer Declare Function cSortI Lib "time2win.dll" (array() As Integer) As Integer Declare Function cSortL Lib "time2win.dll" (array() As Long) As Integer Declare Function cSortS Lib "time2win.dll" (array() As Single) As Integer Declare Function cSortStr Lib "time2win.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer Declare Function cSpellMoney Lib "time2win.dll" (ByVal Value As Double, ByVal Units As String, ByVal Cents As String) As String Declare Function cSplitFile Lib "time2win.dll" (ByVal SourceFile As String, ByVal TargetFiles As String, ByVal PartSize As Long) As Long Declare Function cSplitPath Lib "time2win.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer Declare Sub cStartBasisTimer Lib "time2win.dll" () Declare Sub cStartTimer Lib "time2win.dll" (ByVal nTimer As Integer) Declare Sub cStartWait Lib "time2win.dll" (ByVal nTimer As Integer) Declare Sub cStopBasisTimer Lib "time2win.dll" () Declare Function cStopTimer Lib "time2win.dll" (ByVal nTimer As Integer) As Long Declare Function cStringCompress Lib "time2win.dll" (Txt As String) As String Declare Function cStringCRC32 Lib "time2win.dll" (Txt As String) As Long Declare Function cStringExpand Lib "time2win.dll" (Txt As String) As String Declare Function cStringSAR Lib "time2win.dll" (ByVal Txt As String, ByVal Search As String, ByVal Replace As String, ByVal Sensitivity As Integer) As String Declare Sub cStringToType Lib "time2win.dll" Alias "cTypesCopy" (ByVal Src As String, TypeDst As Any, ByVal lenTypeSrc As Integer) Declare Function cSubDirectory Lib "time2win.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String Declare Function cSumD Lib "time2win.dll" (array() As Double) As Double Declare Function cSumI Lib "time2win.dll" (array() As Integer) As Double Declare Function cSumL Lib "time2win.dll" (array() As Long) As Double Declare Function cSumS Lib "time2win.dll" (array() As Single) As Double Declare Sub cSysMenuChange Lib "time2win.dll" (ByVal hWnd As Integer, ByVal Position As Integer, ByVal NewMessage As String) Declare Sub cSwapD Lib "time2win.dll" (swap1 As Double, swap2 As Double) Declare Sub cSwapI Lib "time2win.dll" (swap1 As Integer, swap2 As Integer) Declare Sub cSwapL Lib "time2win.dll" (swap1 As Long, swap2 As Long) Declare Sub cSwapS Lib "time2win.dll" (swap1 As Single, swap2 As Single) Declare Sub cSwapStr Lib "time2win.dll" (swap1 As String, swap2 As String) Declare Function cTaskFind Lib "time2win.dll" (TASKENTRY As Any, ByVal hTask As Integer) As Integer Declare Function cTasks Lib "time2win.dll" (TASKENTRY As Any, ByVal FirstNext As Integer) As Integer Declare Function cTimeBetween Lib "time2win.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer Declare Function cTimerClose Lib "time2win.dll" (ByVal TimerHandle As Integer) As Integer Declare Function cTimerOpen Lib "time2win.dll" () As Integer Declare Function cTimerRead Lib "time2win.dll" (ByVal TimerHandle As Integer) As Long Declare Function cTimerStart Lib "time2win.dll" (ByVal TimerHandle As Integer) As Integer Declare Function cTimeToScalar Lib "time2win.dll" (ByVal nHour As Integer, ByVal nMin As Integer, ByVal nSec As Integer) As Long Declare Function cToBinary Lib "time2win.dll" (Text As String) As String Declare Function cToBinary2 Lib "time2win.dll" (Text As String, Bin As String) As String Declare Sub cToggleAllBits Lib "time2win.dll" (Txt As String) Declare Sub cToggleBit Lib "time2win.dll" (Txt As String, ByVal Position As Integer) Declare Function cToHexa Lib "time2win.dll" (Text As String) As String Declare Function cTokenIn Lib "time2win.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String Declare Function cToZ9 Lib "time2win.dll" (Text As String) As String Declare Function cTrueBetween Lib "time2win.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer Declare Function cTruncatePath Lib "time2win.dll" (ByVal nFilename As String, ByVal NewLength As Integer) As String Declare Sub cTypeClear Lib "time2win.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) Declare Function cTypeMid Lib "time2win.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String Declare Function cTypesCompare Lib "time2win.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer Declare Sub cTypesCopy Lib "time2win.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer) Declare Function cTypeTransfert Lib "time2win.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String Declare Sub cTypeToString Lib "time2win.dll" Alias "cTypesCopy" (TypeSrc As Any, ByVal Dst As String, ByVal lenTypeSrc As Integer) Declare Function cUncompact Lib "time2win.dll" (Txt As String) As String Declare Function cUnHideAllEditForm Lib "time2win.dll" () As Integer Declare Function cUnHideDebugForm Lib "time2win.dll" () As Integer Declare Function cUniqueFileName Lib "time2win.dll" (Txt As String) As String Declare Sub cUnloadDLL Lib "time2win.dll" (ByVal hMod As Integer) Declare Sub cUnlockEventI Lib "time2win.dll" (Ctl As Control) Declare Function cWalkThruWindow Lib "time2win.dll" (Class As String, Caption As String, OwnerHwnd As Integer, OwnerClass As String, OwnerCaption As String, ByVal FirstNext As Integer) As Integer Declare Function cWeekOfYear Lib "time2win.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer Declare Sub cPushID Lib "time2win.dll" (IDArray As Integer, ByVal nID As Integer) Declare Sub cPopID Lib "time2win.dll" (IDArray As Integer, ByVal nID As Integer) Declare Sub cPopLastID Lib "time2win.dll" (IDArray As Integer) Declare Function cGetID Lib "time2win.dll" (IDArray As Integer, ByVal nPosition As Integer) As Integer Declare Sub cClearID Lib "time2win.dll" (IDArray As Integer) ' File I/O, direct routines issued from C functionnalities Declare Function cFopen Lib "time2win.dll" (ByVal FILE As String, ByVal Mode As String) As Long Declare Function cFclose Lib "time2win.dll" (ByVal IOstream As Long) As Integer Declare Function cFgetc Lib "time2win.dll" (ByVal IOstream As Long) As Integer Declare Function cFputc Lib "time2win.dll" (ByVal char As Integer, ByVal IOstream As Long) As Integer Declare Function cFputs Lib "time2win.dll" (ByVal Txt As String, ByVal IOstream As Long) As Integer Declare Function cFgets Lib "time2win.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer Declare Function cFwrite Lib "time2win.dll" (Txt As String, ByVal IOstream As Long) As Integer Declare Function cFread Lib "time2win.dll" (Txt As String, ByVal Length As Integer, ByVal IOstream As Long) As Integer Declare Function cFcloseall Lib "time2win.dll" () As Integer Declare Function cFflush Lib "time2win.dll" (ByVal IOstream As Long) As Integer Declare Function cFflushall Lib "time2win.dll" () As Integer Declare Function cFeof Lib "time2win.dll" (ByVal IOstream As Long) As Integer Declare Function cFerror Lib "time2win.dll" (ByVal IOstream As Long) As Integer Declare Sub cFclearerr Lib "time2win.dll" (ByVal IOstream As Long) Declare Function cFseek Lib "time2win.dll" (ByVal IOstream As Long, ByVal offset As Long, ByVal origin As Integer) As Integer Declare Function cFtell Lib "time2win.dll" (ByVal IOstream As Long) As Long Declare Sub cFrewind Lib "time2win.dll" (ByVal IOstream As Long) Declare Function cFProcessAsciiFile Lib "time2win.dll" (ByVal IOstream As Long, AsciiOffset() As Long) As Long Declare Function cFGotoRecord Lib "time2win.dll" (ByVal IOstream As Long, AsciiOffset() As Long, ByVal Record As Long) As Integer ' Functions for calculating interest rate Declare Function cAtoF Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cAtoFC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double Declare Function cAtoP Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cAtoPC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double Declare Function cFtoA Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cFtoAC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double Declare Function cFtoP Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cFtoPC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double Declare Function cPtoA Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cPtoAC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double Declare Function cPtoF Lib "time2win.dll" (ByVal Interest As Double, ByVal n As Integer) As Double Declare Function cPtoFC Lib "time2win.dll" (ByVal Rates As Double, ByVal n As Integer) As Double ' Functions for calculating 2-D geometry Declare Sub cV2Add Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2) Declare Sub cV2Sub Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2) Declare Sub cV2Combine Lib "time2win.dll" (u As tagVECTOR2, ByVal c1 As Double, v As tagVECTOR2, ByVal c2 As Double, w As tagVECTOR2) Declare Sub cV2Copy Lib "time2win.dll" (u As tagVECTOR2, w As tagVECTOR2) Declare Function cV2Dot Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2) As Double Declare Function cV2Length Lib "time2win.dll" (u As tagVECTOR2) As Double Declare Function cV2LengthSquared Lib "time2win.dll" (u As tagVECTOR2) As Double Declare Sub cV2LinearIp Lib "time2win.dll" (lo As tagVECTOR2, hi As tagVECTOR2, ByVal alpha As Double, w As tagVECTOR2) Declare Sub cV2Mul Lib "time2win.dll" (u As tagVECTOR2, v As tagVECTOR2, w As tagVECTOR2) Declare Sub cV2Neg Lib "time2win.dll" (u As tagVECTOR2) Declare Sub cV2Normalized Lib "time2win.dll" (u As tagVECTOR2) Declare Sub cV2Ortho Lib "time2win.dll" (u As tagVECTOR2, w As tagVECTOR2) Declare Sub cV2ScaledNewLength Lib "time2win.dll" (u As tagVECTOR2, ByVal newlen As Double) Declare Function cV2SegmentLength Lib "time2win.dll" (p As tagVECTOR2, q As tagVECTOR2) As Double ' Functions for calculating 3-D geometry Declare Sub cV3Add Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3) Declare Sub cV3Sub Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3) Declare Sub cV3Combine Lib "time2win.dll" (u As tagVECTOR3, ByVal c1 As Double, v As tagVECTOR3, ByVal c2 As Double, w As tagVECTOR3) Declare Sub cV3Copy Lib "time2win.dll" (u As tagVECTOR3, w As tagVECTOR3) Declare Sub cV3Cross Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3) Declare Function cV3Dot Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3) As Double Declare Function cV3Length Lib "time2win.dll" (u As tagVECTOR3) As Double Declare Function cV3LengthSquared Lib "time2win.dll" (u As tagVECTOR3) As Double Declare Sub cV3LinearIp Lib "time2win.dll" (lo As tagVECTOR3, hi As tagVECTOR3, ByVal alpha As Double, w As tagVECTOR3) Declare Sub cV3Mul Lib "time2win.dll" (u As tagVECTOR3, v As tagVECTOR3, w As tagVECTOR3) Declare Sub cV3Neg Lib "time2win.dll" (u As tagVECTOR3) Declare Sub cV3Normalized Lib "time2win.dll" (u As tagVECTOR3) Declare Sub cV3ScaledNewLength Lib "time2win.dll" (u As tagVECTOR3, ByVal newlen As Double) Declare Function cV3SegmentLength Lib "time2win.dll" (p As tagVECTOR3, q As tagVECTOR3) As Double ' Functions for Huge String management Declare Function cHugeStrAdd Lib "time2win.dll" (ByVal hsHandle As Integer, hsText As String) As Integer Declare Function cHugeStrAddress Lib "time2win.dll" (ByVal hsHandle As Integer) As Long Declare Function cHugeStrAppend Lib "time2win.dll" (ByVal hsHandle As Integer, hsText As String) As Integer Declare Function cHugeStrBlocks Lib "time2win.dll" (ByVal hsHandle As Integer) As Long Declare Function cHugeStrClear Lib "time2win.dll" (ByVal hsHandle As Integer) As Integer Declare Function cHugeStrCreate Lib "time2win.dll" (ByVal hsSize As Long) As Integer Declare Function cHugeStrFree Lib "time2win.dll" (ByVal hsHandle As Integer) As Integer Declare Function cHugeStrGetNP Lib "time2win.dll" (ByVal hsHandle As Integer) As Long Declare Function cHugeStrGetWP Lib "time2win.dll" (ByVal hsHandle As Integer) As Long Declare Function cHugeStrLength Lib "time2win.dll" (ByVal hsHandle As Integer) As Long Declare Function cHugeStrMid Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsStart As Long, ByVal hsLength As Long) As String Declare Function cHugeStrNext Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsNext As Long) As String Declare Function cHugeStrOnDisk Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long Declare Function cHugeStrRead Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsBlock As Long) As String Declare Function cHugeStrSetNP Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer Declare Function cHugeStrSetWP Lib "time2win.dll" (ByVal hsHandle As Integer, ByVal hsPtr As Long) As Integer Declare Function cHugeStrSize Lib "time2win.dll" (ByVal hsHandle As Integer) As Long ' Functions for Huge Memory Array management Declare Function cHMAClear Lib "time2win.dll" (HMA As tagHMA) As Integer Declare Function cHMAClearCol Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, ByVal sheet As Long) As Integer Declare Function cHMAClearRow Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal sheet As Long) As Integer Declare Function cHMAClearSheet Lib "time2win.dll" (HMA As tagHMA, ByVal sheet As Long) As Integer Declare Function cHMACreate Lib "time2win.dll" (HMA As tagHMA) As Integer Declare Function cHMAFree Lib "time2win.dll" (HMA As tagHMA) As Integer Declare Function cHMAGet Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long) As Variant Declare Sub cHMAGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cHMAPut Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, Var As Variant) Declare Sub cHMAPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, ByVal sheet As Long, nType As Any) Declare Sub cHMArGet Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant) Declare Sub cHMArGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any) Declare Sub cHMArPut Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, Var As Variant) Declare Sub cHMArPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long, nType As Any) Declare Sub cHMAsGet Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cHMAsGetType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Sub cHMAsPut Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, Var As Variant) Declare Sub cHMAsPutType Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long, ByVal Col As Long, nType As Any) Declare Function cHMAsClearCol Lib "time2win.dll" (HMA As tagHMA, ByVal Col As Long) As Integer Declare Function cHMAsClearRow Lib "time2win.dll" (HMA As tagHMA, ByVal Row As Long) As Integer Declare Function cHMAOnDisk Lib "time2win.dll" (HMA As tagHMA, ByVal hsFile As String, ByVal hsGetPut As Integer) As Long